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PROGRAM TITLE: HALF WORD STORAGE 



DESCRIPTION: 

This subroutine is designed to store a half word (20 bits) from either 
the left or the right half of the accumulator into either the left or 
right half of a specified location LLLL. 



STORAGE REQUIREMENTS: 

0000.0 to 0147»1« Information from the loops is saved and restored 
back to the loops before transfer is made back to program from this 
subroutine . 



CALLING SEQUENCE: 

The calling sequence may start either in the left or right half of a 
word. 

+ 00 RRRR.O 
+ 57 0000.0 
~ 00 LLLL.° 

RRRR indicates word to be stored 

Half word to be stored comes from left half of accumulator. 
+ Half word to be stored comes from right half of accumulator. 

Half word from accumulator will be stored in left half of 
LLLL. 

1 Half word from accumulator will be stored in right half of 
LLLL. 



RESTRICTIONS: 

The location LLLL may not be a loop address. 
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PROGRAM TITLE: HALF WORD STORAGE 



ALBSOLUTE 
LOCAT 1 ON 


s 


OPRN 


LOCATION 
ADDRESS SYMBOL S OPR 


OOOO 




65 


01260 
01300 


SAX 
CFL 


01 


+ 
+ 


67 
01 


01 400 

01270 


CFV 

ADD 


02 


+ 
+ 


k2 
03 


01231 
00550 


STA 
SUB 


03 


+ 


kz 
kz 


00061 

00101 


: STA 
STA 


Ok 


+ 
+ 


kz 
kz 


00121 

001 in 


STA 
STA 


05 


+ 
+ 


33 
50 


00550 

00141 


EXT 

TZE 


06 


+ 


ko 

00 


OOOOO 
OOOOO 


ARS 
CLA 


07 


+ 
+ 


33 
50 


01140 
00121 


EXT 
TZE 


0010 


+ 
+ 


4o 
00 


OOOOO 
OOOOO 


ARS 
CLA 


11 




k\ 
57 


00240 

00600 


ALS 

TRA 


'12 


+ 
+ 


ko 
00 


OOOOO 
OOOOO 


ARS 
CLA 


1-3. 


+ 

1 


k\ 
33 


00240 

01 160 


ALS 
EXT 


14 


+ 
+ . 


57 
00 


00161 

OOOOO 


TRA 
CLA 


15 


+ 


51 
57 


00161 
00600 


TMI 

TRA 


)6 


+ 
+ 


00 
6k 


OOOOO 
. 00200 


CLA 
CTL 


17 . 


+ 
+ 


66 
57 


00300 
77000 


CTV 

TRA 



ADDRESS REMARKS 
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PROGRAM TITLE: HALF WORD STORAGE 



ABSOLUTE 
LOCATION 


s 


OPRN 


LOCATION 
ADDRESS SYMBOL S OPRI 


0020 


+ 


60 

33 


01250 
01150 


STO 

EXT 


21 




50 
00 


00400 
01250 


TZE 
CLA 


22 


+ 


01 

42 


OII5O 
7763O 


ADD 
STA 


23 


+ 
+ 


00 

4o 


00000 
00240 


CLA 
ARS 


24 


+ 


4i 
Go 


00240 
01170 . 


ALS 
STO 


25 


+ 

+ 


51 
00 


77721 
01260 


TMI 
CLA 


26 


+ 


4o 
51 


00240 
77710 


ARS 
TM 1 


27 


+ 


01 

Oi 


01 \ko 
01 170 


ADD 
ADD 


OO3O 


+ 

+ 


60 

57 


01240 
01200 


STO 
TRA 


31 


+ 


60 
02 


OO56O 
OO560 


STO 
CLS 


32 


+ 

+ 


11 


77671 
01260 


TRA 
CLA 


33 


+ 


ko 
52 


00240 
77751 


ARS 
TPL 


3 4 


+ 


01 
60 


01170. 
01240 


ADD 
STO 


35 


+ 
+ 


60 


01200 
OO560 


TRA 
STO 


36 




02 
03 


OO560 

01 i4o 


CLS 
SUB 


37 


+ 


57 
00 


777^0 
00000 


TRA 
CLA 



REMARKS 
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PROGRAM TITLE : HALF WORD STORAGE 



ABSOLUTE 
LOCATION 


s 


OPRN 


LOCATION 
ADDRESS SYMBOL S OPRN ADDRESS REMARKS 


OO^O 


+ 


6k 

66 


00^00 
OO5OO 


CTL 
CTV 




k) 


+ 


57 

00 


77611 
01250 


TRA 
CLA 




k2 


+ 
+ 


03 

k2 


01150 
7766O 


SUB 
STA 




^3 


+ 


k2 
00 


m& 


STA 
CLA 




kk 




ko 
k\ 


002^-0 
002^0 


ARS 
ALS 




k$ 


+ 
+ 


60 
5i 


77770 
77710 


STO 
TMI 




k6 


+ 


00 
k\ 


00000 

00230 


CLA 
ALS 




*1 


+ 


ko 

0] 


00230 

77770 


ARS 
ADD 




0050 


+ 
+ 


60 

57 


012^0 
01200 


STO 

TRA 




51 


+ 
+ 


00 

k\ 


00000 
00230 


CLA 

ALS 




52 


+ 

+ 


ko 
33 


OO23O 
01160 


ARS 
EXT 




53 


+ 


01 
60 


7777O 
012^0 


ADD 
STO 




5* 


+ 


57 
00 


01200 
00000 


TRA 
CLA 




55 


+ 


00 
00 


00000 
00001 


CLA 

CAM 




56 


-f 


00 
00 


00000 
00000 


CLA 
CLA 




57 


+ 


00 
00 


00000 
00000 


CLA 
CLA 
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PROGRAM TITLE: HALF WORD STORAGE 



A3S0LUTE 
LOCATION 


s 


OPRN 


LOCATION 
ADDRESS SYMBOL S OPRN ADDRESS REMARKS 


0060 


+ 
+ 


6k 

66 


00600 
OO7OO 


CTL 

CTV 




61 


+ 
+ 


50 


77611 
01250 


TRA 
STO 




62 


+ 


33 
50 


OII5O 
01000 


EXT 
TZE 




63 


+ 
+ 


00 
03 


01250 
01150 


CLA 
SUB 




6k 


+ 


kz 
ko 


77650 

00000 


STA 

ARS 




65 


+ 

+ 


00 

ko 


00000 . 

002H0 


CLA 
ARS 




66 


+ 


60 


002^0 

77770 


ALS 
STO 




67 


+ 
+ 


51 
00 


77721 

01261 


TMI 
CAM 




0070 


+ 


ko 


00230 
00230 


ALS 
ARS 




71. 


+ 
+ 


01 

60 


77770 

0\2k0 


ADD 
STO 




72 


+ 


57 
00 


01200 
01260 


TRA 
CLA 




73 


+ 


k\ 
ko 


00230 
OO23O 


ALS 

ARS 




7^ 


■+ 
+ 


33 
01 


77760 
77770 


EXT 

ADD 




75 


+ 


60 
57 


012^0 
01200 


STO 

TRA 




76 


+ 


77 
77 


77771 
77771 


HTR 
HTR 




77 


+ 


00 
00 


00000 
00000 


CLA 
CLA 
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PROGRAM TITLE: HALF WORD STORAGE 



ABSOLUTE 
LOCATION 


s 


OPRN 


LOCATION 
ADDRESS SYMBOL S OPRN ADDRESS REMARKS 


OIOO 


+ 


66 


01000 
01 100 


CTL 
CTV 




01 


+ 
+ 


57 

00 


77^11 
OI25O 


TRA 
CLA 




02 


.+ 
+ 


0] 

1*2 


77750 
77fe0 


ADD 
STA 




03 


+ 


00 

k] 


00000 

00230 


CLA 
ALS 




Ok 


+ 


ko 
6o 


00230 

77770 


ARS 
STO 




05 


+ 


00 

33 


01260 
777^0 


CLA 
EXT 




06 


+ 


50 

00 


777io 
01261 


TZE 

CAM 




07 


+ 
+ 


k] 

01 


002^0 
77770 


ALS 

ADD 




0110 


+ 


6o 
57 


012^0 
01200 


STO 

TRA 




]] 




00 

k] 


01261 
002*10 


CAM 
ALS 




12 


+ 
+ 


33 
03 


77760 
77770 


EXT 

SUB 




13 


+ 
+ 


6o 
57 


01240 
01200 


STO 

TRA 




\k 


+ 
+ 


00 
00 


00000 
00000 


CLA 

CLA 




15 


+ 


00 
00 


00001 
00000 


CAM 
CLA 




16 


+ 


77 
77 


77771 
77771 


HTR 
HTR 




17 


+ 


00 
00 


00000 
00000 


CLA 

CLA 





- 7 - 

PROGRAM TITLE: HALF WORD STORAGE 



ABSOLUTE 
LOCATION 


S 


OPRN 


ADDRESS 


LOCATION 
SYMBOL 


S OPRN ADDRESS REMARKS 


0120 


+ 


00 
k2 


01250 
01230 




CLA 
STA 




21 


+ 


6k 

66 


01300 
01400 




CTL 

CTV 




22 


+ 


00 

ko 


012*10 
00000 




CLA 
ARS 




23 


+ 


6o 
57 


00000 
00000 




STO 

TRA 




2k 


+ 


00 
00 


00000 
00000 




CLA 
CLA 




25 


+ 


00 
00 


00000 
00000 




CLA 
CLA 




26 


+ 


00 
00 


00000 
00000 




CLA 
CLA 




27 


+ 


00 
00 


00000 
00010 




CLA 
CLA 





